/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hyperbole / wconfig.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 32 3a 35 | 35 20 31 39 39 35 0a 3b | 14:52:5|5 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 77 63 6f 6e 66 69 67 2e |perbole/|wconfig.|
|000000a0| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|000000b0| 73 69 6f 6e 20 31 39 2e | 31 33 20 58 45 6d 61 63 |sion 19.|13 XEmac|
|000000c0| 73 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |s Lucid.|.;;; byt|
|000000d0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000e0| 32 35 3b 20 31 2d 53 65 | 70 2d 39 34 2e 0a 3b 3b |25; 1-Se|p-94..;;|
|000000f0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000100| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000110| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000120| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000130| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000140| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000150| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000160| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000170| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000180| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000190| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|000001a0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001b0| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001c0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001d0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001e0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 31 39 |led for |Emacs 19|
|000001f0| 2e 22 29 29 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |."))..(b|yte-code|
|00000200| 20 22 c0 c1 21 88 c0 c2 | 21 87 22 20 5b 72 65 71 | "..!...|!." [req|
|00000210| 75 69 72 65 20 68 61 72 | 67 73 20 73 65 74 5d 20 |uire har|gs set] |
|00000220| 32 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 77 63 6f |2).(defc|onst wco|
|00000230| 6e 66 69 67 2d 72 69 6e | 67 2d 6d 61 78 20 31 30 |nfig-rin|g-max 10|
|00000240| 20 22 5c 0a 2a 4d 61 78 | 69 6d 75 6d 20 6c 65 6e | "\.*Max|imum len|
|00000250| 67 74 68 20 6f 66 20 77 | 69 6e 64 6f 77 20 63 6f |gth of w|indow co|
|00000260| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 72 69 6e 67 |nfigurat|ion ring|
|00000270| 20 62 65 66 6f 72 65 20 | 6f 6c 64 65 73 74 20 65 | before |oldest e|
|00000280| 6c 65 6d 65 6e 74 73 20 | 61 72 65 20 64 65 6c 65 |lements |are dele|
|00000290| 74 65 64 2e 22 29 0a 28 | 66 73 65 74 20 27 77 63 |ted.").(|fset 'wc|
|000002a0| 6f 6e 66 69 67 2d 61 64 | 64 2d 62 79 2d 6e 61 6d |onfig-ad|d-by-nam|
|000002b0| 65 20 23 5b 28 6e 61 6d | 65 29 20 22 08 3b ac 85 |e #[(nam|e) ".;..|
|000002c0| c1 c2 08 5c 22 88 c3 1c | 74 ab 8f c5 08 0e 06 5c |...\"...|t......\|
|000002d0| 22 ab 88 c7 c8 c9 08 5c | 22 21 ad 90 ca 08 cb 20 |"......\|"!..... |
|000002e0| 0e 06 23 16 06 74 ad 84 | cc cd 08 5c 22 29 87 22 |..#..t..|...\")."|
|000002f0| 20 5b 6e 61 6d 65 20 65 | 72 72 6f 72 20 22 28 77 | [name e|rror "(w|
|00000300| 63 6f 6e 66 69 67 2d 61 | 64 64 2d 62 79 2d 6e 61 |config-a|dd-by-na|
|00000310| 6d 65 29 3a 20 4e 41 4d | 45 20 61 72 67 75 6d 65 |me): NAM|E argume|
|00000320| 6e 74 20 69 73 20 6e 6f | 74 20 61 20 73 74 72 69 |nt is no|t a stri|
|00000330| 6e 67 3a 20 25 73 22 20 | 23 5b 28 6b 65 79 20 65 |ng: %s" |#[(key e|
|00000340| 6c 74 29 20 22 08 09 40 | 9a 87 22 20 5b 6b 65 79 |lt) "..@|.." [key|
|00000350| 20 65 6c 74 5d 20 32 5d | 20 73 65 74 3a 65 71 75 | elt] 2]| set:equ|
|00000360| 61 6c 2d 6f 70 20 73 65 | 74 3a 6d 65 6d 62 65 72 |al-op se|t:member|
|00000370| 20 77 63 6f 6e 66 69 67 | 2d 6e 61 6d 65 73 20 79 | wconfig|-names y|
|00000380| 2d 6f 72 2d 6e 2d 70 20 | 66 6f 72 6d 61 74 20 22 |-or-n-p |format "|
|00000390| 52 65 70 6c 61 63 65 20 | 65 78 69 73 74 69 6e 67 |Replace |existing|
|000003a0| 20 27 25 73 27 20 77 69 | 6e 64 6f 77 20 63 6f 6e | '%s' wi|ndow con|
|000003b0| 66 69 67 75 72 61 74 69 | 6f 6e 3a 20 22 20 73 65 |figurati|on: " se|
|000003c0| 74 3a 72 65 70 6c 61 63 | 65 20 63 75 72 72 65 6e |t:replac|e curren|
|000003d0| 74 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |t-window|-configu|
|000003e0| 72 61 74 69 6f 6e 20 6d | 65 73 73 61 67 65 20 22 |ration m|essage "|
|000003f0| 57 69 6e 64 6f 77 20 63 | 6f 6e 66 69 67 75 72 61 |Window c|onfigura|
|00000400| 74 69 6f 6e 20 27 25 73 | 27 20 73 61 76 65 64 2e |tion '%s|' saved.|
|00000410| 20 20 55 73 65 20 27 77 | 63 6f 6e 66 69 67 2d 72 |  Use 'w|config-r|
|00000420| 65 73 74 6f 72 65 2d 62 | 79 2d 6e 61 6d 65 27 20 |estore-b|y-name' |
|00000430| 74 6f 20 72 65 73 74 6f | 72 65 2e 22 5d 20 34 20 |to resto|re."] 4 |
|00000440| 22 5c 0a 53 61 76 65 73 | 20 74 68 65 20 63 75 72 |"\.Saves| the cur|
|00000450| 72 65 6e 74 20 77 69 6e | 64 6f 77 20 63 6f 6e 66 |rent win|dow conf|
|00000460| 69 67 75 72 61 74 69 6f | 6e 20 75 6e 64 65 72 20 |iguratio|n under |
|00000470| 74 68 65 20 73 74 72 69 | 6e 67 20 4e 41 4d 45 2e |the stri|ng NAME.|
|00000480| 0a 57 68 65 6e 20 63 61 | 6c 6c 65 64 20 69 6e 74 |.When ca|lled int|
|00000490| 65 72 61 63 74 69 76 65 | 6c 79 20 61 6e 64 20 61 |eractive|ly and a|
|000004a0| 20 77 69 6e 64 6f 77 20 | 63 6f 6e 66 69 67 75 72 | window |configur|
|000004b0| 61 74 69 6f 6e 20 61 6c | 72 65 61 64 79 20 65 78 |ation al|ready ex|
|000004c0| 69 73 74 73 20 75 6e 64 | 65 72 0a 4e 41 4d 45 2c |ists und|er.NAME,|
|000004d0| 20 63 6f 6e 66 69 72 6d | 73 20 77 68 65 74 68 65 | confirm|s whethe|
|000004e0| 72 20 6f 72 20 6e 6f 74 | 20 74 6f 20 72 65 70 6c |r or not| to repl|
|000004f0| 61 63 65 20 69 74 2e 22 | 20 22 73 4e 61 6d 65 20 |ace it."| "sName |
|00000500| 66 6f 72 20 63 75 72 72 | 65 6e 74 20 77 69 6e 64 |for curr|ent wind|
|00000510| 6f 77 20 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow confi|guration|
|00000520| 3a 20 22 5d 29 0a 28 66 | 73 65 74 20 27 77 63 6f |: "]).(f|set 'wco|
|00000530| 6e 66 69 67 2d 64 65 6c | 65 74 65 2d 62 79 2d 6e |nfig-del|ete-by-n|
|00000540| 61 6d 65 20 23 5b 28 6e | 61 6d 65 29 20 22 08 3b |ame #[(n|ame) ".;|
|00000550| ac 85 c1 c2 08 5c 22 88 | c3 1c c5 08 0e 06 5c 22 |.....\".|......\"|
|00000560| 0e 06 1e 07 89 1e 08 ab | ae 0e 07 47 c9 55 ab 85 |........|...G.U..|
|00000570| ca 16 07 aa a2 0e 08 47 | c9 55 ab 8d 0e 07 47 cb |.......G|.U....G.|
|00000580| 5a 0e 07 9b ca a1 88 aa | 8e 0e 08 89 41 40 a0 88 |Z.......|....A@..|
|00000590| 0e 08 89 41 41 a1 88 0e | 07 2a 89 16 06 29 87 22 |...AA...|.*...)."|
|000005a0| 20 5b 6e 61 6d 65 20 65 | 72 72 6f 72 20 22 28 77 | [name e|rror "(w|
|000005b0| 63 6f 6e 66 69 67 2d 64 | 65 6c 65 74 65 2d 62 79 |config-d|elete-by|
|000005c0| 2d 6e 61 6d 65 29 3a 20 | 4e 41 4d 45 20 61 72 67 |-name): |NAME arg|
|000005d0| 75 6d 65 6e 74 20 69 73 | 20 6e 6f 74 20 61 20 73 |ument is| not a s|
|000005e0| 74 72 69 6e 67 3a 20 25 | 73 22 20 23 5b 28 6b 65 |tring: %|s" #[(ke|
|000005f0| 79 20 65 6c 74 29 20 22 | 08 09 40 9a 87 22 20 5b |y elt) "|..@.." [|
|00000600| 6b 65 79 20 65 6c 74 5d | 20 32 5d 20 73 65 74 3a |key elt]| 2] set:|
|00000610| 65 71 75 61 6c 2d 6f 70 | 20 73 65 74 3a 6d 65 6d |equal-op| set:mem|
|00000620| 62 65 72 20 77 63 6f 6e | 66 69 67 2d 6e 61 6d 65 |ber wcon|fig-name|
|00000630| 73 20 72 74 6e 20 72 65 | 73 74 20 31 20 6e 69 6c |s rtn re|st 1 nil|
|00000640| 20 32 5d 20 34 20 22 5c | 0a 44 65 6c 65 74 65 73 | 2] 4 "\|.Deletes|
|00000650| 20 77 69 6e 64 6f 77 20 | 63 6f 6e 66 69 67 75 72 | window |configur|
|00000660| 61 74 69 6f 6e 20 73 61 | 76 65 64 20 75 6e 64 65 |ation sa|ved unde|
|00000670| 72 20 4e 41 4d 45 2e 22 | 20 28 62 79 74 65 2d 63 |r NAME."| (byte-c|
|00000680| 6f 64 65 20 22 c0 c1 5c | 6e c3 c4 24 43 87 22 20 |ode "..\|n..$C." |
|00000690| 5b 68 61 72 67 73 3a 72 | 65 61 64 2d 6d 61 74 63 |[hargs:r|ead-matc|
|000006a0| 68 20 22 44 65 6c 65 74 | 65 20 77 69 6e 64 6f 77 |h "Delet|e window|
|000006b0| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 20 6e | configu|ration n|
|000006c0| 61 6d 65 64 3a 20 22 20 | 77 63 6f 6e 66 69 67 2d |amed: " |wconfig-|
|000006d0| 6e 61 6d 65 73 20 6e 69 | 6c 20 74 5d 20 35 29 5d |names ni|l t] 5)]|
|000006e0| 29 0a 28 66 73 65 74 20 | 27 77 63 6f 6e 66 69 67 |).(fset |'wconfig|
|000006f0| 2d 72 65 73 74 6f 72 65 | 2d 62 79 2d 6e 61 6d 65 |-restore|-by-name|
|00000700| 20 23 5b 28 6e 61 6d 65 | 29 20 22 08 3b ac 85 c1 | #[(name|) ".;...|
|00000710| c2 08 5c 22 88 c3 08 0c | 5c 22 89 1d ab 85 c6 0d |..\"....|\"......|
|00000720| 21 aa 84 c1 c7 08 5c 22 | 29 87 22 20 5b 6e 61 6d |!.....\"|)." [nam|
|00000730| 65 20 65 72 72 6f 72 20 | 22 28 77 63 6f 6e 66 69 |e error |"(wconfi|
|00000740| 67 2d 72 65 73 74 6f 72 | 65 2d 62 79 2d 6e 61 6d |g-restor|e-by-nam|
|00000750| 65 29 3a 20 4e 41 4d 45 | 20 61 72 67 75 6d 65 6e |e): NAME| argumen|
|00000760| 74 20 69 73 20 6e 6f 74 | 20 61 20 73 74 72 69 6e |t is not| a strin|
|00000770| 67 3a 20 25 73 22 20 73 | 65 74 3a 67 65 74 20 77 |g: %s" s|et:get w|
|00000780| 63 6f 6e 66 69 67 2d 6e | 61 6d 65 73 20 77 63 6f |config-n|ames wco|
|00000790| 6e 66 69 67 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |nfig set|-window-|
|000007a0| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 22 28 |configur|ation "(|
|000007b0| 77 63 6f 6e 66 69 67 2d | 72 65 73 74 6f 72 65 2d |wconfig-|restore-|
|000007c0| 62 79 2d 6e 61 6d 65 29 | 3a 20 4e 6f 20 77 69 6e |by-name)|: No win|
|000007d0| 64 6f 77 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow conf|iguratio|
|000007e0| 6e 20 6e 61 6d 65 64 20 | 27 25 73 27 22 5d 20 34 |n named |'%s'"] 4|
|000007f0| 20 22 5c 0a 52 65 73 74 | 6f 72 65 73 20 77 69 6e | "\.Rest|ores win|
|00000800| 64 6f 77 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow conf|iguratio|
|00000810| 6e 20 73 61 76 65 64 20 | 75 6e 64 65 72 20 4e 41 |n saved |under NA|
|00000820| 4d 45 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ME." (by|te-code |
|00000830| 22 c0 c1 5c 6e c3 c4 24 | 43 87 22 20 5b 68 61 72 |"..\n..$|C." [har|
|00000840| 67 73 3a 72 65 61 64 2d | 6d 61 74 63 68 20 22 52 |gs:read-|match "R|
|00000850| 65 73 74 6f 72 65 20 77 | 69 6e 64 6f 77 20 63 6f |estore w|indow co|
|00000860| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 6e 61 6d 65 |nfigurat|ion name|
|00000870| 64 3a 20 22 20 77 63 6f | 6e 66 69 67 2d 6e 61 6d |d: " wco|nfig-nam|
|00000880| 65 73 20 6e 69 6c 20 74 | 5d 20 35 29 5d 29 0a 28 |es nil t|] 5)]).(|
|00000890| 66 73 65 74 20 27 77 63 | 6f 6e 66 69 67 2d 64 65 |fset 'wc|onfig-de|
|000008a0| 6c 65 74 65 2d 70 6f 70 | 20 23 5b 6e 69 6c 20 22 |lete-pop| #[nil "|
|000008b0| 08 ac 84 c1 c2 21 87 c3 | 08 40 21 88 08 0c 3d ab |.....!..|.@!...=.|
|000008c0| 83 08 41 14 08 41 89 10 | 87 22 20 5b 77 63 6f 6e |..A..A..|." [wcon|
|000008d0| 66 69 67 2d 72 69 6e 67 | 20 65 72 72 6f 72 20 22 |fig-ring| error "|
|000008e0| 28 77 63 6f 6e 66 69 67 | 2d 64 65 6c 65 74 65 2d |(wconfig|-delete-|
|000008f0| 70 6f 70 29 3a 20 57 69 | 6e 64 6f 77 20 63 6f 6e |pop): Wi|ndow con|
|00000900| 66 69 67 75 72 61 74 69 | 6f 6e 20 73 61 76 65 20 |figurati|on save |
|00000910| 72 69 6e 67 20 69 73 20 | 65 6d 70 74 79 22 20 73 |ring is |empty" s|
|00000920| 65 74 2d 77 69 6e 64 6f | 77 2d 63 6f 6e 66 69 67 |et-windo|w-config|
|00000930| 75 72 61 74 69 6f 6e 20 | 77 63 6f 6e 66 69 67 2d |uration |wconfig-|
|00000940| 72 69 6e 67 2d 79 61 6e | 6b 2d 70 6f 69 6e 74 65 |ring-yan|k-pointe|
|00000950| 72 5d 20 32 20 22 5c 0a | 52 65 70 6c 61 63 65 73 |r] 2 "\.|Replaces|
|00000960| 20 63 75 72 72 65 6e 74 | 20 77 69 6e 64 6f 77 20 | current| window |
|00000970| 63 6f 6e 66 69 67 20 77 | 69 74 68 20 6d 6f 73 74 |config w|ith most|
|00000980| 20 72 65 63 65 6e 74 6c | 79 20 73 61 76 65 64 20 | recentl|y saved |
|00000990| 63 6f 6e 66 69 67 20 69 | 6e 20 72 69 6e 67 2e 0a |config i|n ring..|
|000009a0| 54 68 65 6e 20 64 65 6c | 65 74 65 73 20 74 68 69 |Then del|etes thi|
|000009b0| 73 20 6e 65 77 20 63 6f | 6e 66 69 67 75 72 61 74 |s new co|nfigurat|
|000009c0| 69 6f 6e 20 66 72 6f 6d | 20 74 68 65 20 72 69 6e |ion from| the rin|
|000009d0| 67 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |g." nil]|).(fset |
|000009e0| 27 77 63 6f 6e 66 69 67 | 2d 72 69 6e 67 2d 73 61 |'wconfig|-ring-sa|
|000009f0| 76 65 20 23 5b 6e 69 6c | 20 22 c0 20 09 42 89 11 |ve #[nil| ". .B..|
|00000a00| 47 5c 6e 56 ab 87 5c 6e | 53 09 9b c3 a1 88 09 14 |G\nV..\n|S.......|
|00000a10| c5 0c 47 53 21 88 74 ad | 83 c6 c7 21 87 22 20 5b |..GS!.t.|...!." [|
|00000a20| 63 75 72 72 65 6e 74 2d | 77 69 6e 64 6f 77 2d 63 |current-|window-c|
|00000a30| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 77 63 6f |onfigura|tion wco|
|00000a40| 6e 66 69 67 2d 72 69 6e | 67 20 77 63 6f 6e 66 69 |nfig-rin|g wconfi|
|00000a50| 67 2d 72 69 6e 67 2d 6d | 61 78 20 6e 69 6c 20 77 |g-ring-m|ax nil w|
|00000a60| 63 6f 6e 66 69 67 2d 72 | 69 6e 67 2d 79 61 6e 6b |config-r|ing-yank|
|00000a70| 2d 70 6f 69 6e 74 65 72 | 20 77 63 6f 6e 66 69 67 |-pointer| wconfig|
|00000a80| 2d 72 6f 74 61 74 65 2d | 79 61 6e 6b 2d 70 6f 69 |-rotate-|yank-poi|
|00000a90| 6e 74 65 72 20 6d 65 73 | 73 61 67 65 20 22 57 69 |nter mes|sage "Wi|
|00000aa0| 6e 64 6f 77 20 63 6f 6e | 66 69 67 75 72 61 74 69 |ndow con|figurati|
|00000ab0| 6f 6e 20 73 61 76 65 64 | 2e 20 20 55 73 65 20 27 |on saved|.  Use '|
|00000ac0| 77 63 6f 6e 66 69 67 2d | 79 61 6e 6b 2d 70 6f 70 |wconfig-|yank-pop|
|00000ad0| 27 20 74 6f 20 72 65 73 | 74 6f 72 65 2e 22 5d 20 |' to res|tore."] |
|00000ae0| 33 20 22 5c 0a 53 61 76 | 65 73 20 74 68 65 20 63 |3 "\.Sav|es the c|
|00000af0| 75 72 72 65 6e 74 20 77 | 69 6e 64 6f 77 20 63 6f |urrent w|indow co|
|00000b00| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 6f 6e 74 6f |nfigurat|ion onto|
|00000b10| 20 74 68 65 20 73 61 76 | 65 20 72 69 6e 67 2e 0a | the sav|e ring..|
|00000b20| 55 73 65 20 7b 5c 5c 5b | 77 63 6f 6e 66 69 67 2d |Use {\\[|wconfig-|
|00000b30| 79 61 6e 6b 2d 70 6f 70 | 5d 7d 20 74 6f 20 72 65 |yank-pop|]} to re|
|00000b40| 73 74 6f 72 65 20 69 74 | 20 61 74 20 61 20 6c 61 |store it| at a la|
|00000b50| 74 65 72 20 74 69 6d 65 | 2e 22 20 6e 69 6c 5d 29 |ter time|." nil])|
|00000b60| 0a 28 66 73 65 74 20 27 | 77 63 6f 6e 66 69 67 2d |.(fset '|wconfig-|
|00000b70| 72 6f 74 61 74 65 2d 79 | 61 6e 6b 2d 70 6f 69 6e |rotate-y|ank-poin|
|00000b80| 74 65 72 20 23 5b 28 61 | 72 67 29 20 22 08 47 89 |ter #[(a|rg) ".G.|
|00000b90| 19 c2 55 ab 85 c3 c4 21 | aa 8e 0d 09 0e 06 47 5a |..U....!|......GZ|
|00000ba0| 5c 5c 09 a6 08 9b 89 16 | 06 29 87 22 20 5b 77 63 |\\......|.)." [wc|
|00000bb0| 6f 6e 66 69 67 2d 72 69 | 6e 67 20 6c 65 6e 67 74 |onfig-ri|ng lengt|
|00000bc0| 68 20 30 20 65 72 72 6f | 72 20 22 28 77 63 6f 6e |h 0 erro|r "(wcon|
|00000bd0| 66 69 67 2d 72 6f 74 61 | 74 65 2d 79 61 6e 6b 2d |fig-rota|te-yank-|
|00000be0| 70 6f 69 6e 74 65 72 29 | 3a 20 57 69 6e 64 6f 77 |pointer)|: Window|
|00000bf0| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 20 73 | configu|ration s|
|00000c00| 61 76 65 20 72 69 6e 67 | 20 69 73 20 65 6d 70 74 |ave ring| is empt|
|00000c10| 79 22 20 61 72 67 20 77 | 63 6f 6e 66 69 67 2d 72 |y" arg w|config-r|
|00000c20| 69 6e 67 2d 79 61 6e 6b | 2d 70 6f 69 6e 74 65 72 |ing-yank|-pointer|
|00000c30| 5d 20 34 20 22 5c 0a 52 | 6f 74 61 74 65 73 20 74 |] 4 "\.R|otates t|
|00000c40| 68 65 20 79 61 6e 6b 69 | 6e 67 20 70 6f 69 6e 74 |he yanki|ng point|
|00000c50| 20 70 72 65 66 69 78 20 | 41 52 47 20 65 6c 65 6d | prefix |ARG elem|
|00000c60| 65 6e 74 73 20 69 6e 20 | 74 68 65 20 77 69 6e 64 |ents in |the wind|
|00000c70| 6f 77 20 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow confi|guration|
|00000c80| 20 73 61 76 65 20 72 69 | 6e 67 2e 0a 49 6e 74 65 | save ri|ng..Inte|
|00000c90| 72 61 63 74 69 76 65 6c | 79 2c 20 64 65 66 61 75 |ractivel|y, defau|
|00000ca0| 6c 74 20 76 61 6c 75 65 | 20 6f 66 20 41 52 47 20 |lt value| of ARG |
|00000cb0| 3d 20 31 2e 22 20 22 70 | 22 5d 29 0a 28 66 73 65 |= 1." "p|"]).(fse|
|00000cc0| 74 20 27 77 63 6f 6e 66 | 69 67 2d 79 61 6e 6b 2d |t 'wconf|ig-yank-|
|00000cd0| 70 6f 70 20 23 5b 28 6e | 29 20 22 c0 09 21 88 c2 |pop #[(n|) "..!..|
|00000ce0| 0b 40 21 87 22 20 5b 77 | 63 6f 6e 66 69 67 2d 72 |.@!." [w|config-r|
|00000cf0| 6f 74 61 74 65 2d 79 61 | 6e 6b 2d 70 6f 69 6e 74 |otate-ya|nk-point|
|00000d00| 65 72 20 6e 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |er n set|-window-|
|00000d10| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 77 63 |configur|ation wc|
|00000d20| 6f 6e 66 69 67 2d 72 69 | 6e 67 2d 79 61 6e 6b 2d |onfig-ri|ng-yank-|
|00000d30| 70 6f 69 6e 74 65 72 5d | 20 32 20 22 5c 0a 52 65 |pointer]| 2 "\.Re|
|00000d40| 70 6c 61 63 65 73 20 63 | 75 72 72 65 6e 74 20 77 |places c|urrent w|
|00000d50| 69 6e 64 6f 77 20 63 6f | 6e 66 69 67 20 77 69 74 |indow co|nfig wit|
|00000d60| 68 20 70 72 65 66 69 78 | 20 61 72 67 20 4e 74 68 |h prefix| arg Nth|
|00000d70| 20 70 72 69 6f 72 20 6f | 6e 65 20 69 6e 20 73 61 | prior o|ne in sa|
|00000d80| 76 65 20 72 69 6e 67 2e | 0a 49 6e 74 65 72 61 63 |ve ring.|.Interac|
|00000d90| 74 69 76 65 6c 79 2c 20 | 64 65 66 61 75 6c 74 20 |tively, |default |
|00000da0| 76 61 6c 75 65 20 6f 66 | 20 4e 20 3d 20 31 2c 20 |value of| N = 1, |
|00000db0| 6d 65 61 6e 69 6e 67 20 | 74 68 65 20 6c 61 73 74 |meaning |the last|
|00000dc0| 20 73 61 76 65 64 20 77 | 69 6e 64 6f 77 0a 63 6f | saved w|indow.co|
|00000dd0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 69 73 20 64 |nfigurat|ion is d|
|00000de0| 69 73 70 6c 61 79 65 64 | 2e 0a 0a 54 68 65 20 73 |isplayed|...The s|
|00000df0| 65 71 75 65 6e 63 65 20 | 6f 66 20 77 69 6e 64 6f |equence |of windo|
|00000e00| 77 20 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 73 |w config|urations|
|00000e10| 20 77 72 61 70 73 20 61 | 72 6f 75 6e 64 2c 20 73 | wraps a|round, s|
|00000e20| 6f 20 74 68 61 74 20 61 | 66 74 65 72 20 74 68 65 |o that a|fter the|
|00000e30| 20 6f 6c 64 65 73 74 0a | 6f 6e 65 20 63 6f 6d 65 | oldest.|one come|
|00000e40| 73 20 74 68 65 20 6e 65 | 77 65 73 74 20 6f 6e 65 |s the ne|west one|
|00000e50| 2e 22 20 22 70 22 5d 29 | 0a 28 64 65 66 76 61 72 |." "p"])|.(defvar|
|00000e60| 20 77 63 6f 6e 66 69 67 | 2d 6e 61 6d 65 73 20 28 | wconfig|-names (|
|00000e70| 73 65 74 3a 63 72 65 61 | 74 65 29 20 22 5c 0a 53 |set:crea|te) "\.S|
|00000e80| 65 74 20 6f 66 20 28 6e | 61 6d 65 20 2e 20 77 69 |et of (n|ame . wi|
|00000e90| 6e 64 6f 77 2d 63 6f 6e | 66 69 67 75 72 61 74 69 |ndow-con|figurati|
|00000ea0| 6f 6e 29 20 65 6c 65 6d | 65 6e 74 73 2e 22 29 0a |on) elem|ents.").|
|00000eb0| 28 64 65 66 76 61 72 20 | 77 63 6f 6e 66 69 67 2d |(defvar |wconfig-|
|00000ec0| 72 69 6e 67 20 6e 69 6c | 20 22 5c 0a 4c 69 73 74 |ring nil| "\.List|
|00000ed0| 20 6f 66 20 77 69 6e 64 | 6f 77 20 63 6f 6e 66 69 | of wind|ow confi|
|00000ee0| 67 75 72 61 74 69 6f 6e | 73 20 73 61 76 65 64 20 |guration|s saved |
|00000ef0| 69 6e 20 61 20 72 69 6e | 67 2e 22 29 0a 28 64 65 |in a rin|g.").(de|
|00000f00| 66 76 61 72 20 77 63 6f | 6e 66 69 67 2d 72 69 6e |fvar wco|nfig-rin|
|00000f10| 67 2d 79 61 6e 6b 2d 70 | 6f 69 6e 74 65 72 20 6e |g-yank-p|ointer n|
|00000f20| 69 6c 20 22 5c 0a 54 68 | 65 20 74 61 69 6c 20 6f |il "\.Th|e tail o|
|00000f30| 66 20 74 68 65 20 77 69 | 6e 64 6f 77 20 63 6f 6e |f the wi|ndow con|
|00000f40| 66 69 67 75 72 61 74 69 | 6f 6e 20 72 69 6e 67 20 |figurati|on ring |
|00000f50| 77 68 6f 73 65 20 63 61 | 72 20 69 73 20 74 68 65 |whose ca|r is the|
|00000f60| 20 6c 61 73 74 20 74 68 | 69 6e 67 20 79 61 6e 6b | last th|ing yank|
|00000f70| 65 64 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |ed.").(b|yte-code|
|00000f80| 20 22 c0 c1 21 88 c2 c3 | 21 87 22 20 5b 72 75 6e | "..!...|!." [run|
|00000f90| 2d 68 6f 6f 6b 73 20 77 | 63 6f 6e 66 69 67 2d 6c |-hooks w|config-l|
|00000fa0| 6f 61 64 2d 68 6f 6f 6b | 20 70 72 6f 76 69 64 65 |oad-hook| provide|
|00000fb0| 20 77 63 6f 6e 66 69 67 | 5d 20 32 29 0a          | wconfig|] 2).   |
+--------+-------------------------+-------------------------+--------+--------+